home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / 10NET.LIT next >
Text File  |  1990-01-13  |  4KB  |  138 lines
  1. *[10NET.LIT]******************************************************************
  2. * Description: Select DCA Fox 10-NET for multiple node file locking.         *
  3. * RBBS-PC Level: CPC17.3                                               √ AM  *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: MULTNODE = 10NET                                         *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 22000 IF ZMsgFileLock = ZTrue THEN _
  9.          RETURN
  10.       ZMsgFileLock = ZTrue
  11.       MID$(ZLockStatus$,1,2) = "LM"
  12.       ZSubParm = 2
  13.       CALL Line25
  14.       ZLockFileName$ = ZActiveMessageFile$
  15.       IF ZNetworkType > 0 THEN GOTO 22500
  16.       RETURN
  17. 22100
  18. 22200
  19. 22300
  20. 22400
  21. 22500 GOSUB 28100
  22.       CALL LPLK10(ZLockDrive,ZLockFileName$,ZWasA)
  23.       RETURN
  24. 25000 IF NOT ZMsgFileLock THEN _
  25.          RETURN
  26.       ZMsgFileLock = ZFalse
  27.       MID$(ZLockStatus$,1,2) = "UM"
  28.       ZSubParm = 2
  29.       CALL Line25
  30.       ZLockFileName$ = ZActiveMessageFile$
  31.       IF ZNetworkType > 0 THEN GOTO 25500
  32.       RETURN
  33. 25100
  34. 25200
  35. 25300
  36. 25400
  37. 25500 GOSUB 28100
  38.       CALL UNLOK10(ZLockDrive,ZLockFileName$,ZWasA)
  39.       RETURN
  40. 26000 IF ZUserFileLock = ZTrue THEN _
  41.          RETURN
  42.       ZUserFileLock = ZTrue
  43.       MID$(ZLockStatus$,4,2) = "LU"
  44.       ZSubParm = 2
  45.       CALL Line25
  46.       ZLockFileName$ = ZActiveUserFile$
  47.       ON ZNetworkType GOTO 26100,26200,22300,26300,22500,29720
  48.       IF ZNetworkType > 0 THEN GOTO 22500
  49.       RETURN
  50. 26100
  51. 26200
  52. 26300
  53. 26500 IF ZUserBlockLock = ZTrue THEN _
  54.          RETURN
  55.       ZUserBlockLock = ZTrue
  56.       ZBlk = (ZUserFileIndex / 4) + .26
  57.       MID$(ZLockStatus$,7,2) = "LB"
  58.       ZSubParm = 2
  59.       CALL Line25
  60.       IF ZNetworkType > 0 THEN GOTO 26900
  61.       RETURN
  62. 26600
  63. 26700
  64. 26750
  65. 26800
  66. 26900 ZLockFileName$ = LEFT$(ZActiveUserFile$,2) + _
  67.                         "BLK" + _
  68.                         RIGHT$("0000" + MID$(STR$(ZBlk),2),5)
  69.       GOTO 22500
  70. 27000 IF NOT ZUserFileLock THEN _
  71.          RETURN
  72.       ZUserFileLock = ZFalse
  73.       MID$(ZLockStatus$,4,2) = "UU"
  74.       ZSubParm = 2
  75.       CALL Line25
  76.       ZLockFileName$ = ZActiveUserFile$
  77.       IF ZNetworkType > 0 THEN GOTO 25500
  78.       RETURN
  79. 27100
  80. 27200
  81. 27300
  82. 27500 IF NOT ZUserBlockLock THEN _
  83.          RETURN
  84.       ZUserBlockLock = ZFalse
  85.       ZBlk = (ZUserFileIndex / 4) + .26
  86.       MID$(ZLockStatus$,7,2) = "UB"
  87.       ZSubParm = 2
  88.       CALL Line25
  89.       IF ZNetworkType > 0 THEN GOTO 27900
  90.       RETURN
  91. 27600
  92. 27700
  93. 27750
  94. 27800
  95. 27900 ZLockFileName$ = LEFT$(ZActiveUserFile$,2) + _
  96.                         "BLK" + _
  97.                         RIGHT$("0000" + MID$(STR$(ZBlk),2),5)
  98.       GOTO 25500
  99. 28000
  100. 28010
  101. 28100 CALL AllCaps (ZLockFileName$)
  102.       ZLockDrive = ASC(LEFT$(ZLockFileName$,1)) - ASC("A")
  103.       ZLockFileName$ = ZLockFileName$ + _
  104.                         STRING$(32 - LEN(ZLockFileName$),0)
  105.       ZWasA = 0
  106.       RETURN
  107. 29000 IF LockedEn$ = ZWasEN$ THEN _
  108.          RETURN
  109.       LockedEn$ = ZWasEN$
  110.       MID$(ZLockStatus$,10,2) = "LD"
  111.       ZSubParm = 2
  112.       CALL Line25
  113.       ZLockFileName$ = ZWasEN$
  114.       IF ZNetworkType > 0 THEN GOTO 22500
  115. 29300
  116. 29500 IF LockedEn$ <> ZWasEN$ THEN _
  117.          RETURN
  118.       LockedEn$ = ""
  119.       MID$(ZLockStatus$,10,2) = "UD"
  120.       ZSubParm = 2
  121.       CALL Line25
  122.       ZLockFileName$ = ZWasEN$
  123.       IF ZNetworkType > 0 THEN GOTO 25500
  124.  
  125. 29600
  126. 29650
  127. 29700
  128. 29710
  129. 29720
  130. 29730
  131. 29800
  132. 29810
  133. 29820
  134. 29830 END SUB
  135. 30000 SUB InitIBM STATIC
  136.       END SUB
  137. 30020
  138.